unit Class_P2;

interface

uses
  SysUtils, Classes, DataEngine;

type
  TP2 = class(TBaseClass)
  public
    YUE: Integer;
    LB: string;
    PDH: Integer;
    FJZS: Integer;
    JZR: string;
    XGR: string;
    _SHR: string;
    FCH: Integer;
    PZLY: string;
    CURMONTH: Integer;
    MASTER: string;
    DELEGATE: string;
    CN: string;
    BOOKBY: string;
    IMAGEID: Integer;

    _State: Integer;
  public
    procedure CopyIt(var Result: TP2); overload;
    function CopyIt: TP2; overload;

    destructor Destroy; override;
  end;

implementation

{ TP2 }

procedure TP2.CopyIt(var Result: TP2);
begin
  if Result = nil then Result := TP2.Create;
  Result.YUE := YUE;
  Result.LB := LB;
  Result.PDH := PDH;
  Result.FJZS := FJZS;
  Result.JZR := JZR;
  Result.XGR := XGR;
  Result._SHR := _SHR;
  Result.FCH := FCH;
  Result.PZLY := PZLY;
  Result.CURMONTH := CURMONTH;
  Result.MASTER := MASTER;
  Result.DELEGATE := DELEGATE;
  Result.CN := CN;
  Result.BOOKBY := BOOKBY;
  Result.IMAGEID := IMAGEID;
  Result._State := _State;
end;

function TP2.CopyIt: TP2;
begin
  Result := nil;
  CopyIt(Result);
end;

destructor TP2.Destroy;
begin

  inherited;
end;

end.
